home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 12
/
Cream of the Crop 12 (Part II)
/
Cream of the Crop 12 (Part II).iso
/
OS2
/
XCO212P.ZIP
/
SAMPLES
/
SIMPLE
/
term.mod
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1994-07-22
|
370 b
|
16 lines
MODULE term;
IMPORT TERMINATION, STextIO;
BEGIN
IF TERMINATION.IsTerminating() THEN
STextIO.WriteString("**** error 1 ****"); STextIO.WriteLn;
END;
FINALLY
IF TERMINATION.IsTerminating() THEN
STextIO.WriteString("is terminating..."); STextIO.WriteLn;
ELSE
STextIO.WriteString("**** error 2 ****"); STextIO.WriteLn;
END;
END term.